* lisp/subr.el (read-key): Add 'tab-line' (bug#76408).

Backport:
(cherry picked from commit 0c8abe8bb5072c46a93585cb325c249f85f3d9c2)

diff --git a/lisp/subr.el b/lisp/subr.el
index 7552378a781ee2488dac65757ca7f776ac6aab83..0394a333b443d7fd6c9a950a4f0128c023ff1554 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -3377,7 +3377,7 @@ only unbound fallback disabled is downcasing of the last event."
                                                              nil nil t)))
                  (key (aref keys 0)))
             (if (and (> (length keys) 1)
-                     (memq key '(mode-line header-line
+                     (memq key '(mode-line header-line tab-line
                                  left-fringe right-fringe)))
                 (aref keys 1)
               key)))